home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / ABRVRPT.SRC < prev    next >
Text File  |  1990-11-03  |  2KB  |  91 lines
  1. ;\|
  2. ;ABRVRPT.SRC     Translated from ABRVRPT.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;ABRVRPT  03:39:56 AM   7/11/89                    |
  4. ;Program generated with the report writer|
  5.     define(PAGE|N|5|0|)
  6.     define(DATE.TIME.FLD|A|46||)
  7.     define(TOT.RECS|N|8|0|)
  8.     define(CHG.TIME|T|8||)
  9.     define(CHG.DATE|D|10||)
  10.     define(STDDAYS|A|12||)
  11.     define(STDMONTH|A|12||)
  12.     define(STDYEAR|A|6||)
  13.     define(STDAYH|A|4||)
  14.     define(AM.PM|A|2||)
  15.     define(TIME.STRG|A|10||)
  16.     define(PG.STRG|A|5||)
  17.     clrscr
  18.     clrlne(1|25)
  19.     open(ABBREV||0|EXIT)
  20.     gosub GET.DATE
  21.     mount(REPORT|R|P)
  22.     pchr(P|10)
  23.     pchr(P|11)
  24.     pchr(P|4)
  25.     pchr(P|1)
  26.     trap(P|S|TOF)
  27.     gosub TOF
  28.     trap(I|G|FINI)
  29.     find(B|ABBREVIATION   |NO.RECS)
  30. PRT.REC:
  31.     pfmt(6||||)
  32.     TOT.RECS = (TOT.RECS + 1)
  33. RD.NEXT:
  34.     find(N|ABBREV  |FINI)
  35.     goto PRT.REC
  36. FINI:
  37.     pfmt(5||||)
  38.     pfmt(8||||)
  39.     pblnk(2)
  40.     pfmt(7||||)
  41.     trap(P|D|)
  42.     ptof
  43.     run("recmenu")
  44. TOF:
  45.     PAGE = (PAGE + 1)
  46.     pfmt(1||||)
  47.     pfmt(2||||)
  48.     pfmt(3||||)
  49.     pblnk(1)
  50.     pfmt(4||||)
  51.     pfmt(5||||)
  52.     ret
  53. GET.DATE:
  54.     time(CHG.TIME|G)
  55.     date(CHG.DATE|G)
  56.     AM.PM = ("AM")
  57.     if CHG.TIME > (43199) doO 
  58.         {
  59.         AM.PM = ("PM")
  60.         if CHG.TIME > (46799) then  CHG.TIME = (CHG.TIME - 43200)
  61.         }
  62.     TIME.STRG =mid(CHG.TIME|1|8|)
  63.     STDDAYS =day(CHG.DATE)
  64.     STDMONTH =xmt(CHG.DATE)
  65.     STDAYH =mid(CHG.DATE|4|2|)
  66.     STDYEAR =mid(CHG.DATE|7|4|)
  67.     PG.STRG = (PAGE)
  68.     DATE.TIME.FLD = (STDDAYS+STDMONTH+STDAYH+STDYEAR+TIME.STRG+AM.PM)
  69.     ret
  70. NO.RECS:
  71.     pmsg("There are no records in the ABBREV   file "|1|24|Y|||)
  72. EXIT:
  73.     run("recmenu")
  74. \R REPORT  
  75.                         NON - MEDICATION ABBREVIATIONS
  76.                 &
  77.                                  Page # &
  78. ABBREVIATION  ABBREV.NAME
  79. ------------  ------------------------------
  80. &             &
  81. Total number of records printed: &
  82.  
  83. \
  84. DATE.TIME.FLD
  85. PAGE
  86. ABBREVIATION
  87. ABBREV.NAME
  88. TOT.RECS
  89. \
  90.  
  91.